International Business Machines Corporation 




40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 {Code 914) 



February 19, 1965 



MEMORANDUM TO: Users of IBM 1620/1311 LINEAR PRO- 
GRAMMING SYSTEM 1620-CO-04X 

SUBJECT: Version 1, Modification Level 1 



This modification has been prepared to correct all items included in 
APAR Response (APAR APS-301) concerning 1620/1311 LP sent on 
1/21/65. In addition, this modification improves other phases of this 
program and consists of the following: 

1. Modification update procedure (Standard) - one page. 

2. Modification update procedure (Non-standard) - one page. 

3. Description of program changes and listing of source 
changes - two pages. 

4. Corrected replacement page to Application Directory - 
one page. 

5. Five replacement decks preceded by a header card. 

Deck number one (1) disk label routine - 13 cards 
Deck number two (2) - 94 cards 

Deck number three (3) - 82 cards 

Deck number four (4) - 86 cards 

Deck number five (5) -87 cards 

Any discrepancy between the material received and the list above, as 
well as any errors in card reproduction, should be directed to: Manager 
of DP Program Information, IBM Corporation, 112 East Post Road, 
White Plains, New York. 

We appreciate your cooperation in making the enclosed changes and re- 
quest the continued use of the Authorized Programming Analysis Report 
(APAR), submitted through your local IBM Systems Engineer, in re- 
porting difficulties concerning this program. APARs for this program 
should be sent to: APAR Processing, DP Application Programming 
Standards, 112 East Post Road, White Plaint, New York: 10601. 

PROGRAM INFORMATION DEPARTMENT 

cc: SE Managers 

(No enclosures with 
Branch Office copies) 



Description of Program Chancres and Listing of Source Changes 



PA54 
PA72 
PA725 
PA73 

PA88 

PA885 

PB12 

PB15 

PB23 

PB24 

PB25 

PB29 

PB33 

PB35 

PB36 

PB37 

PB42 

PB43 
PB44 
PC75 
PC76 
PC77 

PC78 
PC79 
PC80 



REVMAT 

CORRECTS LOOP AND. DIAGNOSTIC MESSAGE FAILURE 
FOR ELEMENT CARD COLUMN NAME NOT IN MATRIX FILE. 
RDERTN TFM GET9+P • RDCD ERROR RETURN INITIALIZATION 
GETNXT C STORR+5 .-ADLGR » .CHECK END OF MATRIX FILE 

BE CKL1ST. t .CHECK IF LAST IS FIRST GROUP 
GTNEXT GET STODSK 



RDCD 



AAA 



WACD CARD 

TFM GET9+P.ROWOK. .BYPASS WACD TIL COL FOUND 
AAA 
CCC 

TLAST .STORR+5 ..RESET LAST TO CURRENT 
GET9+P .RDCD ..RESTORE WACD FOR NEXT CARD 
COLOK 
ODD 



DDD 



BE 
BE 
TF 
TFM 
B 

B7 
NOP 
TF 
NOP 
B 
C 



STORR+5 .SAVE2 1 tSET READ FOR NEXT GROUP 
GETNXT 

TLAST .SAVE2 » .CHECK IF LAST GROUP HAS BEEN 

TF STORR+5.SAVE2..SET TO READ NEXT RECORD 

BE NTINMT. » .INCORRECT COL NAME 

TFM ERORB+P .RDERTN 

B ERRORA 

CKL1ST C TLAST .-ADFGR..IS LAST SEARCH RECORD FIRST 

TF ST0RR+5.-ADFGR. .SEARCH IS COMPLETE 

BE NT INMT » t iCOLUMN NAME NOT IN FILE. 

B GTNEXT • » • I F SEARCH NOT COMPLETE. CONTINUE 



02950 16 
03142 24 
03154 46 
3166 10 
3178 49 
3346 37 
03358 16 
3638 46 
3674 46 
03762 26 
03774 16 
3798 49 
3834 49 
3890 41 
03914 26 
3926 41 
3938 49 
SEARCHED 
3990 24 
04002 26 
04014 46 
05554 16 
05566 49 
IN FILE 

5578 24 
05590 26 
05602 46 
05614 49 



03340 
08487 
05578 
00565 
00566 
Q7735 
03340 
03762 
03822 
08017 
03340 
04078 
03990 
00000 
08487 
00000 
03142 

08017 
08487 
05530 
05288 
05222 

08017 
08487 
05530 
03154 



3 346 
0768J 
012QU 
3169 
84 V 7 

0Q500 
035 78 
01200 
01200 
84b i 
03346 

ooooo 

00000 

ooooo 

8031 
OOOOO 
OOOOO 

08031 
08031. 
0120C 
03142 
OOOOO 

07670 
76 70 
01200 

ooooo 



REVFST 

CORRECTS LOOP AND DIAGNOSTIC MESSAGE FAILURE 

FOR FIRSTB/NEXT.B NAME NOT IN R-H-S FILE. 

CORRECTS FAILURE TO INDICATE ROW LOWER LIMIT REVISION 

WHE# REVISEING A BLANK SAVED POSITION. 



RA55 


RA55 


TF 


CARDIM .COMTAB+15 


02974 


26 


07370 


07305 


RA78 


GETNXT 


C 


ST0RR+5.-ADLSB. .CHECK END OF RHS FILE 


03226 


24 


08011 


07 34N 


RA785 




BE 


RB33 


3238 


46 


03898 


01200 


RB05 




B 


AAA 


3562 


49 


03874 


OOOOO 


RB29 


OUT 


BD 


RB39. WRITE. .BRANCH IF RECORD REVISED 


03850 


43 


03970 


07548 


RB30 




B 


RB40»».NO. DO NOT WRITE .RECORD 


03861 


49 


03836 


OQQ_Q.Q 


RB31 


AAA 


TF 


TLAST .STORR+5 » .RESET LAST ADDR FOR NEXT 


03874 


26 


07563 


08011 


RB32 




B 


RDCD. tt RHS REVISION 


03886 


49 


03418 


OOOOO 


RB33 


RB33 


C 


TLAST .-ADFSB, .RE-SEARCH FROM 1ST RECORD 


03898 


24 


07563 


0734- 


RB34 




TF 


STORR+5. -ADFSB.. IF SEARCH COMPLETE- 


03910 


26 


08011 


0734- 


RB35 




BE 


NT I NB .. .ERROR EXIT — NOT FOUND IN FILE. 


03922 


46 


05290 


01200 


RB36 




B 


GTNEXT 


3934 


_49 


03226 


QQOOO 


RB39 


RB39 


PUT 


STODSK 


3970 


10 


00505 


-3993 


RB40 


RB40 


C 


TLAST .SAVE2 . . SET TO SEARCH NEXT RECORD 


03994 


24 


07563 


07578 


RB42 




TF 


STORR+5 .SAVE2 


04018 


26 


08011 


07578 


RB43 




BE 


NTINB.. .ERROR EXIT IF SEARCH FAILS 


04030 


46 


05290 


01200 


RB44 




B 


RB51 


4042 


49 


04126 


OOOOO 


RB45 


RRR 


C 


CARD+4.FIRST+4.»CHECK FOR 


04054 


24 


07377 


075.93 


RB46 




BE 


XXX. » • FIRSTB OR 


04066 


46 


04162 


01200 


RB47 




C 


CARD+4»NEXT+4»t NEXT»B CARD 


04078 


24 


07377 


07599 


RB48 




BE 


XXX... IF EI THER .CONTINUE 


04090 


46 


04162 


01200 
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R849 




B 


COMPLT»»> IF NEITHER»REVFST CCMPLT 


04102 


49 


05410 


0000 


RB51 


RB51 


TFM 


GET9+P»R0WIN 


04126 


16 


03412 


-3682 


RB54 


XXX 


TF 


COMMON+322 »CARD^22 » »S IMULATE 


04162 


26 


Q71Q9 


Q7395 


RB55 




B 


RA55 » t tREVFST ENTRY FROM REVISE 


04174 


49 


02974 


00000 


RC16 


STOR 


IF 


CARD+86»ZER03>.LOWER LIMIT IN FLT PT FORM 


04906 


26 


07455 


07652 


RC17 




AM 


SAVE1»15»10» INDICATE PRESENCE 


04918 


11 


07573 


000J5 


RC18 




TF 


-SAVEX,Ktt BRANCH TO STORE LIMIT 


04930 


26 


075 7L 


07614 


RC19 




SF 


-SAVE1»», SUBROUTINE 


04942 


32 


0757L 


00000 


RC20 




B 


STORE,,, WITH LOW LIM CARD FIELD CLEARED* 


04954 


49 


04510 


QQCOO 


RC48 




TF 


TLAST ,-ADLSB 


05302 


26 


07563 


0734N 


RC5U 




TFM 


ERORB+P ,RRR 


05326 


16 


05128 


-4QP4 


RC53 




TF 


STORR+5 ,-ADFSB 


05350 


26 


08011 


073<+- 


RC54 


RC54 


WACD 


CAROIM,, , BYPASS DATA AND COMMENTS 


05362 


37 


07373 


00500 


RC55 




CM 


CARDIM.14. 10, 


05374 


14 


07373 


000J4 


RC56 




BI 


ERORA,H00»»WRITE ERROR MESSAGE 


06386 


46 


Q5Q62 


GllQQ 


RC57 




B 


RC34 


5398 


49 


05362 


00000 



INV002 

CORRECTS RANGE CONSTRAINT ERROR WHEN RHS ENTRIES ARE NEGATIVE 
AND MANTJSSA LENGTH IS GREATER THAN 10 



0A93 


TFM 


TFM 


0A95+6,BND+10,,INIT 


MANT MOVE OF RHS ENT1 


03406 


16 


03436 


-6298 


0A94 




S 


0A95+6tMANSA 




03418 


22 


03436 


14107 


0A95 


0A95 


TF 


BND+10-MANSA,-AUPN0, 


•MOVE MANTISSA RHS El 


03430 


26 


0780R 


0652M 


0A96 




MF 


BND»-0A95-6»f 


SIGN 


03442 


71 


06288 


03430 


0A97 




TF 


BNDEX,-AUPEX 


EXPONENT 


03454 


26 


06290 


0652R 


0A98 




TFM 


0B0Q+6»WK18+10,,INIT 


MANT MOVE OF ENTRY2 


03466 


16 


Q3496 


-6364 


0A99 




S 


0B00+6»MANSA, , 




03478 


22 


03496 


14107 


OBOO 


OBOO 


TF 


WK18+10-MANSA»-ALONQ 


••MOVE MANTISSA 


03490 


26 


0775L 


0653R 


0B01 




MF 


W<18,-0B00-6, » 


SIGN 


03502 


71 


06354 


0349O 


0B02 




TF 


WK18EX,-AL0EXt, 


EXPONENT 


03514 


26 


06356 


0654M 



INV003 

CORRECTS UPPER BOUND » 
WHEN LOWER BOUND NEGATIVE 



1B36 


♦INITIALIZE 


10 DIGIT TO MANTISSA CONVERSION SUBR 










1B37 


AROUND TFM 


109MM+6.109 


03574 


16 


03688 


-0109 


1B38 


S 


1Q9MM+6iMANSA 


03586 


22 


036 AS. 


14107 


1B39 


♦CONVERT UPPER BOUND TO MANTISSA LENGTH 










1B40 


TFM 


MSIZE+6»HLDUBX 


03598 


16 


03712 


-6-613 


1B41 


BT 


10TOM»ALFEX 


03610 


27 


03658 


06510 


1B42 


♦CONVERT LOWER BOUND TO MANTISSA LENGTH 










1B43 


TFM 


MSIZE+6»HLDLBX 


03622 


16 


03712 


-66*3 


1B44 


BT 


lOTQMtAVAEX 


03.634 


27 


036. 5-fl. 


.0.65.-40. 


1B45 


B 


1B56»»,Q ADDR-10TOM FROMF ACTOR ADDRESS 


03646 


49 


03742 


00000 


1B46 


♦10 DIGIT TO 


MANTISSA CONVERSION SUBR. FROMFAC-10TOM- 


l»T0FAO 


•MSIZE+6 




1B47 


10T0M TF 


-MSIZE-6»-10TOM*l»»MOVE EXPONENT 


03658 


26 


0371K 


0365P 


1B48 


SM 


1QT0M-1i2ajMANTISSA ADDR OF FROMF AC 


03670 


12 


03657 


-0002 


1649 


109MM LD 


109-MANSA.-10TOM+1 ••CONVERT MANSA SIZE 


03682 


28 


139 90 


0365P 


1B50 


SM 


MSU6+6jL2jiMAiiI13SA ADDR OF TOFAC 


... -Q1694 


12. 


01212 


-0002 


1B51 


MSUE TF 


-MSIZE-6»99»»M0VE CONVERTED MANTISSA 


03706 


26 


0371K 


00099 


1B52 


TFM 


104»0,2»REST0BE. MULTIPLY TABLE 


03718 


16 


-0104 


00000 


1B53 


BB 


•••SUBROUTINE EXIT 


03730 


42 


00000 


ooooo 


1B56 


1B56 F$ 


HLDUBX,HLDLBX 
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Source Deck 



The first five cards of each source deck are : 

1 cold start card 

2 ^ JOE 

4 * OUTPUT CARD 

5 * PUNCH SYMEOL TABLE 

These cards enable the user to assemble a program. The source decks 
are numbered as follows : 



DECK # 1 

DECK #2-35 

DECK # 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



Disk Label Routine Cards 

Program Cards 

PROGRAM NAME 
INPUT 
ROW. ID 
COL. ID 
MATRIX 
FIRSTE 
EASIS 
INPUTA 
INPUTE 
INPUTC 
INPUTD 
MTXDSK 
REVISE 
REVROW 
REVCOL 
REVMAT 
REVSLK 
REVFSt 
REVEAS 
SAVE. E 
OUTPUT 
DO. D/J 
GETOFF 
COST. R 
CHECK 
INVRT1 
INV002 
INV003 
INV004 
INV005 
IVLAST 
NEWRHS 

LP1620 
LP1621 
IDUAL 

SAMPLE PROELEM 



(Column 76) 
DECK ID Character 
A 
E 
C 
D 
E 
F 
G 
H 
I 
J 
L 
M 
N 

Q 
P 

Q 
R 
S 
T 
U 
V 

w 

X 

Y 

& 



1 

2 

3 

4 

5 



Revised - Version 1 , Mod 1 0. 10.05 



PREPARATORY SYSTEM PROCEDURES 



The 1620-1311 Linear Programming System is distributed as a deck of 
SPS- produced actual cards. It is expected that the user will want to 
keep the LP system on the disk semi- permanently. 

The procedure for loading the system onto the disk is as follows : 

1. Place the LP actual deck in the card reader. 

2. Set all console sense switches to OFF and all machine check 
switches to PROGRAM. 

3. Press RESET on the console. 

4. Press LOAD on the card reader. 

The first card of the deck is a Monitor cold start card, which calls in the 
Monitor program. Monitor program loads each routine onto the disk, and 
prints END OF JOE when the entire LP System has been loaded. 



0.15.01 



MOD UPDATE PROCEDURE - STANDARD 



This procedure should not be followed if DIM numbers are not standard. 

I. The 1620-1311 LINEAR PROGRAMMING SYSTEM is on disk. 

A. Place decks in card read hopper 

B. Put LP disk on drive 0. Turn disk drive on. 

C. Press reset on console. 

D. Press load on card reader 

The first deck will delete: 

1. REVMAT 

2. REVFST 

3. INV002 

4. INV003 

The second deck will load REVMAT. 
The third deck will load REVFST. 
The fourth deck will loa d INV002T 
The fifth deck will load INV003. 



II. Replace 1620-1311 LINEAR PROGRAMMING SYSTEM object decks 
by MOD 1 object decks. The deck identification character (card 
column 76) of the replacement deck must exactly correspond to the 
original deck identification character. 



1. Discard Mod Deck 1. Replace original object decks. As follows, deck 
identification number given in parenthesis: 

2. Mod Deck 2 (P) replaces original deck 16 

3. Mod Deck 3 (R) replaces original deck 18 

4. Mod Deck 4 (zero) replaces original deck 27 

5. Mod Deck 5 (1) replaces original deck 28 



MOD UPDATE PROCEDURE (NON-STANDARD) 
USE IF DECKS HAVE BEEN MODIFIED (DIM NUMBERS, ETC. ) 



Mod 1 Deck 2 cards replace original cards. 

P009 
P012 
P015 
P020 

P022-P027 
P052-P053 

Where P is the Deck Identification Character in card 
column 76, the card number is in 78-80. 



Mod 1 Deck 3 cards replace original cards. 

R013-R014 
R018 

R023-R028 
R038-R039 
R044-R046 



Mod 1 Deck 4 cards replace original cards. 

019 - 021 

Mod 1 Deck 5 cards replace original cards. 

1 021 - 1 024 



Use the modified decks as Mod Decks 2-5 and follow 
standard procedure. 




40 Saw Mill River Road 
Hauthorne. New York 10532 
WHite Plains Q-1Q00 {Code <>1 /) 



jni' > < '!' "•/// lU/snirss Muchuif.s Corporation 



June 3, 1965 

MEMORANDUM TO: Users of Linear Programming System 

1620-CO-04X 



SUBJECT: 



Version 1, Modification Level 2 



This modification has been prepared to correct: 

1. An error in the COST. R routine which erased the multiply and add 
tables for large problems on a 20K configuration. 

2. An error in LP1621 routine which failed to modify the Monitor 
mantissa length if: 

A. An inverse had been saved 

B. Intervening operations or control return to Monitor 

C. Input from disk of the saved problem with inverse 

D. Revision of Matrix elements 

E. Optimization 

In addition, this modification provides a new routine (SHIFT) to allow 
the user to shift assigned DIM numbers in object decks to be loaded to 
the 1311 disk under Monitor 1 or 2. This routine must be used to pre- 
pare a loading deck for Monitor 2 loading, or for Monitor 1 loading if 
user programs have been assigned DIM numbers in the range of 0170 
to 0212. 

Changes have been made to the Sample Problem input deck so that it 

uses only the work area. This will allow the Sample Problem to be run 

if there are programs on the disk in sectors above 07999. 

Changes have also been made to object decks REVCOL and REVBAS to 

allow them to operate under Monitor 2. 

This modification consists of the following: 

1. Modification update procedure - one page. 

2. Revised pages to APPLICATION DIRECTORY - eight pages. 

Revision Pages 
Table of contents Contents, o 05. 01 

Deck list 0. 10.01, 0. 10.02 

Source deck, PREPARATORY SYSTEM 0. 10. 05, 0. 15. 01, to 

PROCEDURES 0.15.08 
Questions and answers (new) 0. 30. 01, 0. 35. 01 

3. Source program changes - eleven pages. 

Please discard the source change listing from Modification Level 
1, because the enclosed lists have been corrected and updated to 
include all source changes in Modification Levels 1 and 2. 



2M327 



-2- 



a. Pages 1 thru 7. 

Sections of corrected source decks from Modification 
Levels 1 and 2 have been assembled and listed in such 
a way that user program lists may be updated by in- 
serting the corrected sections. 

b. Pages 8 thru 11. 

List of all source changes from Modification Levels 1 
and 2. This list contains only the changed instructions, 
and may be used for keypunching source cards. These 
cards may then be used to update the source decks by 
properly substituting them in Page and Line sequence. 
Note - in a few cases, two MOD cards, suitably identi- 
fied, replace a single original card. 
Page 11 also contains a list of the five object patch cards, 
MOD Deck 2, below. 

4. Object list of SHIFT - 1 page. 

5. Assembly listing of SHIFT - 4 pages. 

6. Replacement and new Deck. 

MOD Deck 1 - Disk delete deck 13 cards 

MOD Deck 2 - Object patch cards for REVCOL, 

REVBAS, COST.. R, and LP 1621 5 cards 

MOD Deck 3 - Revised Sample Problem 179 cards 

MOD Deck 4 - SHIFT object deck (new) 35 cards 

MOD Deck 5 - SHIFT source deck (new) 181 cards 

Recipients of this program subsequent to the date of this letter 
will not receive MOD Decks 1 and 2. The five object patch cards . 
(Deck 2 above) will be included in the updated object decks. In 
addition, the Sample Problem deck, and all source decks, will be 
updated thru Modification Level 2. 

Any discrepancy between the material received and the list above, as well as any 
errors in card reproduction, should be directed to: Manager of DP Program 
Information, IBM Corporation, 112 East Post Road, White Plains, New York, 
10601. 

We appreciate your cooperation in making the enclosed changes and request the 
continued use of the Authorized Programming Analysis Report (APAR), submitted 
through your local IBM Systems Engineer, in reporting difficulties concerning 
this program. APAR's for this programming system should be sent to: APAR 
Processing, DP Application Programming Standards, 112 East Post Road, White 
Plains, New York, 10601. 



PROGRAM INFORMATION DEPARTMENT 

cc: SE Managers 

(No Enclosures with Branch Office Copies) 



MODIFICATION UPDATE PROCEDURE 



I. The 1620-1311 Linear Programming System is on disk. 

A. Update the four object decks (below) by substituting the five patch 
cards (MOD Deck 2) according to the Deck Identification Character 
in columns 76 and the card sequence number in columns 78-80. 



Deck Name Deck ID Sequence # 

1. REVCOL JZf 023 

2. REVBAS S 033, 034 

3. COST.R X 107 

4. LP1621 7 $97 



B. Place these corrected object decks, preceded by the 13 card Disk 
Delete Deck (MOD Deck 1) in the card reader. 

C. Put LP disk on drive 0. Turn disk drive on. 

D. Press reset on console. 

E. . Press load on card reader. 

The first deck will delete REVCOL, REVBAS, COST.R, and LP1621. 
The second deck will load the updated object deck REVCOL. 
The third deck will load the updated object deck REVBAS. 
The fourth deck will load the updated object deck COST. R. 
The fifth deck will load the updated object deck LP1621. 

II. Discard the 13 card Disk Delete Deck, (MOD Deck 1). Return the four 
corrected object decks to storage. 

Users who have compiled their source decks to obtain object decks should 
recompile all changed decks, then *DELET the changed decks and *DLOAD 
the new decks. 



Version 1, Mod. Level 2 
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IBM 1620-1311 Linear Programming System 



APPLICATION DIRECTORY 



CONTENTS 



General Table of Contents 

Program Reference Manual 
Systems Manual 

Deck List 

Object Program Deck 
Sample Problem Deck 
Source Deck 

Preparatory System Procedures * 

SHIFT ROUTINE 

Required Programming Systems 

Machine Configuration 

Statement of Maintenance Procedure 

•», 

Questions and Answers 



0. 05. 01 
0. 05. 06 



0. 10. 01 
0. 10. 02 
0. 10. 05 



). i5. or~i 

). 15. 04 I 



0. 
0. 

0. 20. 01 
0.25.01 
0. 30. 01 
0. 35. 0l[] 



♦This section should be used to load the system onto the disk. ObsoletesJ 
page 106 of 1620/1311 Linear Programming System Program Reference I 
Manual (H20-0106-0) LOADING THE SYSTEM. —J 



Revised-Version 1, Mod Level 2 



CONTENTS 



P rogram Reference Manual 

Programming System Abstract 1 

General Description of Programming System 1 

Features 2 

Mathematical Methods Summary 4 

Machine Configuration and Problem Size 4 

System Configuration . , 5 

General System Chart 6 

Data Input, Agenda, and Reports 7 

Agenda....... 7 

Data Preparation 7 

Optimization 7 

Report Preparation 7 

Control and Data Maintenance 8 

Data Input 8 

Reports 9 

Using the 1620-1311 Linear Programming System 11 

Sample Problem 1 12 

Sample Problem 2 25 

Sample Problem 3 27 

Sample Problem 4 30 

Sample Problem 5 32 

Data Preparation 34 

ROW. ID Indicator 36 

Format 36 

Usage 36 

Row Identification 36 

Format 36 

Usage 37 

COL. ID Indicator 38 

Format 38 

Usage... 38 



0. 05. 01 



DECK LIST 



Program Deck 

The IBM 1620-1311 Linear Programming System is supplied to the user 
in the form of a card deck. The first card of the deck, a Monitor cold 
start card, calls in the Monitor program, which loads the LP system 
onto disk. 

The program deck consists of a series of object decks for the individual 
routines comprising the 1620-1311 LP System. The first three cards of 
each object deck are: 

Monitor JOB 5 card 
Monitor DUP card 
Monitor *DLOAD card 

The object deck card counts do not include these three (3) Monitor cards 
at the beginning of each deck. Each deck is seperated by a blank card. 

The entire deck is arranged as follows: 

Monitor Cold Start Card 

DECK#1 Disk Label Routine Cards (3 cards) 

DEC K DECK ID 

DECK # PROGRAM ID 

2 INPUT A 

3 ROW. ID B 

4 COL. ID C 

5 MATRIX D 

6 FIRSTB E 

7 BASIS F 

8 INPUTA G 

9 INPUTB H 
10. INPUTC I 

11 INPUTD J 

12 MTXDSK L 

13 REVISE M 

14 REVROW N 

15 REVCOL 

16 REVMAT P 

17 REVSLK Q 

18 REVFST R 

19 REVBAS S 

20 SAVE. B T 



cards Each program has a unique 

rjg 9 identification character. 
47 * Object deck identification 
characters are punched in 
column 76. 



39 
153 



112 

66 
87 
55 
47 

76 
106 
47 
35 
27 



94 
26 
82 

40 Version 1, Mod level 2 
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0. 10. 01 



21 
22 
23 
24 
25 



OUTPUT 
DO. D/J 
GETOFF 
COST. R 
CHECK 



U 
V 
W 
X 
Y 



172 
111 
34 
174 
192 



26 
27 
28 
29 
30 



INVRT1 

INV002 

INV003 

INV004 

INV005 



Z 


1 
2 
3 



43 
86 
87 
104 
40 




31 
32 
33 
34 
35 



IV LAST 

NEWRHS 

LP1620 

LP1621 

1DUAL 



4 
5 
6 
7 
8 



29 
123 

21 
164 
277 



36 



Monitor **** card 



37 
38 
39 



SAMPLE PROBLEM (described below) 
SHIFT 9 31 (object) 

SHIFT 9 181 (source) 



Sample Problem Deck 

Following the program deck is a sample problem deck which the user 
may use 1) to be sure that the 1620-1311 LP System has been loaded 
correctly, and 2) to become familiar with the format of the various 
agenda and data input cards. 

The deck of 179 cards is arranged as follows: 

Monitor cold start card 
Monitor JOB 5 card 
Monitor XEQ LP1620 card 
INPUT. C card 
ROW. ID card 

9 data cards 
MATRIX card 

55 data cards 
FIRST. B card 

7 data cards 
ENDATA card 
ASSIGN card 
MEN. . . card 
SAVE. B card 
OUTPUT card 



CHECK, card 
COST. R card 
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Source Deck 



The first five cards of each source deck are: 

1 cold start card 

2 ? j*" JOB 

4 * OUTPUT CARD 

5 * PUNCH SYMBOL TABLE 



These cards enable the user to assemble a program. The source decks 
are numbered as follows: 

Deck # Program 



1 


INPUT 


2 


ROW. ID 


3 


COL. ID 


4 


MATRIX 


5 


FIRSTB 


6 


BASIS 


7 


INPUTA 


8 


INPUTB 


9 


INPUTC 


10 


INPUTD 


11 


MTXDSK 


12 


REVISE 


13 


REVROW 


14 


REVCOL 


15 


REVMAT 


16 


REVSLK 


17 


REVFST 


18 


REVBAS 


19 


SAVE.B 


20 


OUTPUT 


21 


DO.D/J 


22 


GETOFF 


23 


COST.R 


24 


CHECK 


25 


INVRT1 


26 


INV002 


27 


1NV003 


28 


INV004 


29 


INV005 


30 


IVLAST 


31 


NEWRHS 


32 


LP1620 


33 


LP1621 


34 


IDUAL 
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PREPARATORY SYSTEM PROCEDURES 



This modification obsoletes page 106 of 1620/1311 Linear Programming 
System (1620-CO-04X) Program Reference Manual (H20-0106-0) for the 
section beginning: 



OPERATING INSTRUCTIONS 

LOADING THE SYSTEM 

The 1620/1311 Linear Programming System is distributed as a deck of 
SPS-produced object cards. The object cards have been modified to pro- 
vide a unique identification (in columns 76-80) for each card. The source 
cards can be obtained as optional material. It is expected that the user 
will want to keep the LP System on the disk semi- permanently. 

The source language is SPS-II D. All references to LP System programs 
in source language is by symbolic program name. The SPS-II D assembles 
absolute object DIM (See MONITOR 1 or MONITOR 2 Reference Manual) 
numbers from source symbolic program references. The LP programs, 
as assembled and distributed, require DIM numbers 0170 to 0212 inclusive. 

A routine is provided to shift the LP System DIM numbers to avoid con- 
flict with previously assigned DIM numbers. 

To load the system onto the disk: . 

o The user may use the distribute d decks as loading decks - if and 
only if the operating system is Monitor I and there are no user 
programs currently assigned DIM numbers 0170 to 0212 inclusive. 
Otherwise the user must use the SHIFT routine to obtain a usable 
loading deck from the distributed deck. The SHIFT routine pur- 
pose, usage and operating procedure, output description, timing 
and program description are given in the APPLICATION DIREC- 
TORY page 1 _15 i _04. 

o The operator should mark the Deck Identification Character (0. 10. 01) 
on the loading decks to simplify modification and maintenance. A 
blank card separates each deck. Place MONITOR disk on disk 
drive and press start on disk drive 0. 
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o Place the LP loading decks - the DLABL. deck followed by loading 
decks A through 8 - in the card reader. 

o Press RELEASE on console. 

o Press RESET on console. 

o Press LOAD on card reader. 

o The message "DUP*TURN ON WRITE ADDRESS KEY, START" 
will be typed. 

o Press WRITE ADDRESS on the disk drive. The key should be lit 
after pressing. 

o Press START on console. 

o The message "DUP* TURN OFF WRITE ADDRESS KEY, START" 
will be typed. 

o Press WRITE ADDRESS on the disk drive. The key should be 
unlit after pressing. 

o Press START on console. 

o The following message sequence must appear as each program is 
loaded: 

"tfJOB" 
"**-DUP" 

"*DLOADnnnnnn dddd i C" 

"DK LOADED nnnnnn dddd " 

"END OF JOB" 

Where: nnnnnn is the program name, ex: "INPUT. ", "1DUAL" 
dddd is the program DIM number, ex: 0177, 0172 
i is the program identification character, ex: A, 8 

If this message sequence does not appear for some program or pro- 
grams of the system, consult the MONITOR reference manual for 
the cause. 
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If a program is assigned a different DIM number (by MONITOR) 
due to a conflict with a previously assigned DIM number, the LP 
System will probably fail to operate. The user must delete all 
correctly and incorrectly loaded LP programs by the DIM num- 
bers assigned by MONITOR. The user should then use the SHIFT 
routine to obtain a valid loading deck. 

o The last program to be loaded is 1DUAL. 

o The user should run the SAMPLE PROBLEM to verify correct 
loading. 
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SHIFT ROUTINE 



PURPOSE 

To operate with MONITOR II and to operate with MONITOR I if user 
programs are on the disk with DIM numbers in the range 0170 to 
0212. 



USAGE AND OPERATING PROCEDURE 

o The user must determine 43 consecutive, unassigned DIM 
numbers, see MONITOR Reference Manual, Disk Utility- 
Program, DDUMP. 

o Prepare a SHIFT card 

Format: 

cc 1-5 SHIFT 

cc 6-9 nnnn - lowest of the 43 unassigned DIM numbers, 
cc 10-17 MONITORS - if and only if the operating system is 

Monitor 2. 

or 

cc 10-17 - blank - if and only if the operating system is not 

Monitor 2. 

cc 18-80 not used 
Examples 

SHIFT0300MONITOR2 

The LP program DIM numbers are to be shifted to 0300 to 0342. 
The operating system is MONITOR 2. 

Note - This card is currently the last card of the SHIFT routine. 
Replace this card by an appropriate SHIFT card if required. 

SHIFT0350 

The LP program DIM numbers are to be shifted to 0350 to 0392. • 
The operating system is MONITOR I. 
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Place the prepared SHIFT card at the end of the SHIFT deck, 
replacing the sample SHIFT card distributed. 

Place MONITOR disk on disk drive 0. Press start on disk drive 
0. 

Place the SHIFT deck including SHIFT card in the card reader. 
Press RELEASE on console. 
Press RESET on console. 
Press LOAD on card reader. 

Press READER START on card reader to read last cards. 

The message " NEW LP1620 DIM RANGE WILL BE nnnn to 
mmmm. M will be typed out if the SHIFT card has the correct 
format. The message "INVALID SHIFT CARD" will be typed 
out to indicate a format error in the SHIFT card. If this 
message occurs, prepare a valid SHIFT card and repeat the 
previous step after pressing START on console. 

The message "ENVIRONMENT-MONITORS" should be typed out 
if and only if the operating system used is MONITOR 2. 

Processing halts, allowing the operator to determine that the 
new DIM range will not conflict with currently assigned DIM 
numbers and that the correct operating system is specified. 
If there are any conflicts, operating system or DIM range, 
the user must begin the operating procedure from the begin- 
ning. If there are no conflicts, continue. 

Place the distributed object decks beginning with the DLABL deck 
to and including the deck 1DUAL (all- except SAMPLE PROBLEM 
and SHIFT routine which were the last 2 decks) in the card reader. 
Place 3 blank cards following the last card of 1DUAL to ensure 
that the last object deck card (identified by 8 blank K77 in cc 76- 
80) is punched. 

Press START on the card reader and the card punch. 
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o Press START on console. 

o The READER NO FEED light will remain on when the last card 
has been processed. 
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OUTPUT DESCRIPTION 



SHIFT output is loading decks for the LP System with modified DIM 
numbers. 

o "*DLOAD M cards will have shifted DIM numbers. 

o Object cards, with DIM numbers, will have shifted DIM numbers. 
The object cards in which the units position of a DIM number 
appears will have an S (0-2 punch) in card column 77. 

o "*DELET" cards will have shifted DIM numbers (for program 
maintenance). 

o Card 6b015 of program deck LP1620 of the LP decks card 

column 18 has been changed to 7 if and only if "ENVIRONMENT- 
MONITORS". 

o Remove the blank card(s) and program identification card that 
precede the Monitor cold start card. 

o This deck is now the LP loading deck to be used in loading the 
system. Once the system has been loaded and checked out, 
the distributed object decks can be discarded except for the 
SHIFT routine and SAMPLE PROBLEM. The SHIFT routine 
and SHIFT card must be retained to maintain the LP System. 
The SAMPLE PROBLEM should be retained to verify correct 
modification. 

TIMING 

The SHIFT routine will operate at card punch speed on an IBM 1620 
MODEL 2, it will operate at approximately 100 cards per minute 
on an IBM 1620 MODEL 1. 
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PR OGRAM DESCRIPTION 



The SHIFT routine will process one or more SPS-n object decks. 
INITIALIZATION 

A SHIFT card is read. This card is checked for format errors. The 
displacement to the assembled DIM numbers is calculated from the SHIFT 
card; Displacement = SHIFT - 170. 

PROCESSING NON-OBJECT CARDS 

Read cards are tested for a record mark in column 1. The previous card 
image (old card) is punched and the card read (card) is moved to the previous 
card image when the non-object card has a record mark in column 1 (JOB or 
DUP cards) or is a blank card (program separator card) or is a *DLABL 
card. *DLOAD and *DELET cards are detected and their DIM numbers are 
modified; DIM=DIM+ Displacement prior to punching out the previous card 
image and moving the card read to the previous image area. 

PROCESSING OBJECT CARDS 

Card columns 9 through 75 are tested for a DIM number pattern. When a DIM 
number is detected, the DIM number is modified by DIM = DIM + Displacement 
and an S is moved to column 76. Card columns 71 to 75 of the previous card 
image are tested in conjunction with card columns 9 to 13 of the read card. 
The previous card is punched after column 13 of the read card is processed. 
The read card is moved to the previous card area after column 75 has been 
processed. When card column 76 to 80 of the previous card image correspond 
to 6 b ol 5, card column 13 is changed to a 9 (if the environment is Monitor 1), 
or to a 7 (if the environment is Monitor 2) according to user environment 
specification. 

MESSAGES 

"INVALID SHIFT CARD" 

"NEW LP1620 DIM RANGE WILL BE nnnn to mmmm" 
"ENVIRONMENT - MONITOR 2" 
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STATEMENT OF MAINTENANCE PROCEDURE 



This program will be maintained through the use of serially numbered 
modification letters. Any unmodified system is considered to be mod- 
ification level 0. Each subsequent modification raises the modification 
level by 1. The initial availability of this program is version 1, modif- 
ication level 0. Should the nature or quantity of changes make reassembly 
necessary, a new version will be distributed. Each reassembly raises 
the version number by 1; modification letters to a new version begin at 1. 

Modification letters will be mailed to all previous recipients of the pro- 
gram. All modification letters will be supplied with the program. The 
change or alter cards will be included in the appropriate deck(s) to re- 
flect the latest changes. 

An Authorized Programming Analysis Report (APAR) should be submitted 
through your local IBM Systems Engineer to report any difficulties en- 
countered in the use of this system (Form 120-0482-2). The APAR 
should be addressed to APAR Processing, IBM Application Programming 
Standards, 112 East Post Road, White Plains, New York. 
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QUESTIONS AND ANSWERS 



!• Question: What are good mantissa length and tolerance settings? 
The program choses or goes to a large mantissa length and takes 
too much time. 

Answer : The following ASSIGN setting will usually yield correct 
results. Problems of a repetitive nature usually require several 
tries to minimize processing time. 

Mantissa length 12 

Element Tolerance 9 

Pivot Tolerance 6 

< Feasibility Tolerance 3 

Objective function tol. 4 

Maximum Error tol. 2 

In addition, increasing the number of iterations 1 : between inversions 
to 30-50 (Standard is 15) will usually decrease processing time. 

2. Question: How can a two disk drive system be used to reduce processing 
time? 

Answer: ASSIGN common computation address on second drive, i.e. 
20000. ASSIGN sector address upper limit to 39999. This will put 
the most frequently accessed data on the outermost cylinders. On a 
one drive system, it is best to put the INPUT data above the programs 
and DIM table. The most efficient area should be used for the inverse 
(if it can fit below the DIM table) . 

3. Question: How can a program be added to the LP System? 

Answer: Any program on the disk can be called by the LP System 
by preparing an agendum card with the program name. If the user 
will read COMMON area (Sectors 1800 to 1804, primarily 1800 to 
1802) into core, he may locate any data that has been read or com- 
iputed since the preceding INPUT. The routine COST.R was added 
to the LP System in this fashion. Details are given in the System, 
Reference Manual, available as optional material from PID. 
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* MOD 1 CHANGES TO REVMAT 
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03082 32 


07408 


ooooo 


RA66 




SF 


CARD+59 






03094 32 


07432 


ooooo 


RA67 




TDM 


WRITE 


• 


• 


•CLEAR WRITE IND 
3106 15 


07548 


ooooo 


RA68 




TFM 


BEMM 


•16500 


• 7 


» B READ IN AREA 
3118 16 


07335 


J6500 


RA69 




TF 


SAVE4 


•-ADFSB 


t 


•SET UP FILE SEARCH 
















3130 26 


07553 




RA7o 




TF 


TFIRST 


•-ADFSB 




03142 26 


I3 30 




RA71 




TF 


TLAST 


•-ADLSB 




03154 26 


07563 




RA72 


# 


READ FIRST B GROUP RECORD 










RA73 




TD 


STORR 


•-BERMK 




03166 25 


08006 


0732 — 


RA74 




TF 


STORR+5 


•-ADFSB 




03178 26 


08011 


0734- 


RA75 




TF 


STORR+8 


•-BESC 




03190 26 


08014 


0733- 


RA76 




TF 


STORR+13 


• BEMM 




03202 26 


08019 


07335 


RA77 




BTM 


CKSTOP 


•20001 


• 7 


03214 17 


02408 


K0001 


RA78 


GETNXT 


C 


ST0RR+5»-ADLSB 


••CHECK END OF RHS 


FILE 03226 24 


08011 


0734N 


RA785 


BE 


RB33 






*3238 46 


03898 


01200 


RA79 




GET 


STODSK 






03250 10 
3262 49 


00565 
00566 


-3273 
-8021 


RA80 


♦ 




PICK UP B GROUP HEADER 


INFORMATION 






RA81 


HDR 


TF 


TEMP2 


• bEMM 


• 


•MEM ADDR B GRP 
3274 26 


07568 


07335 


RA82 




AM 


TEMP2 


• 2 


• 10 


03286 11 


07568 


000-2 


RA83 




TF 


NMBEE 


•-TEMP2 


• 


•« BEES IN B GRP 
3298 26 


07586 


0756Q 


RA84 




AM 


TEMP2 


• 5 


• 10 


03310 11 


07568 


000-5 


RA85 




TF 


SAVE2 


•-TEMP2 


• 


•NEXT DISK B GRP 
3322 26 


07578 


0756Q 


RA86 




AM 


TEMP2 


.5 


• 10 


03334 11 


07568 


000-5 
0756Q 


RA87 




TF 


SAVE1 


•-TEMP2 


• 


•ADDR OF FIRST B 
3346 26 


07573 


RA88 




A 


SAVE1 


• BEMM 




03358 21 


07573 


07335 


RA89 




TF 


SAVE3 


•SAVE1 




03370 26 


07583 


07573 


RA90 




TDM 


WRITE 


• 


• 


•CLEAR B FILE WR: 


ITE INDIC 


RA91 












3382 15 


07548 


ooooo 


GET9 


BTM 


CKSTOP 


•20005 


• 7 


03394 17 


02408 


K0005 


RA92 


B 


RDCD 






03406 49 


03418 


ooooo 


RA93 


« 


READ A CARD 










RA94 


RDCD 


GET 


CARDE 






03418 10 


00565 


-3441 




BEG1 










3430 49 


00566 


-7532 


RA95 


C 


CARD 


•ASTER 


• 


•CHECK FOR COMMENT CARD 


RA96 




BE 


RDCD 






3442 24 


07373 


08055 




• 


• 


•IGNORE 03454 46 


03418 


01200 
07593 


RA97 




C 


CARD+4 


•FIRST+4 


• 


•FIRST B CARD 

3466 24 


07377 


RA98 




BE 


NXDTA 






03478 46 


03550 
07377 


01200 
07599 


RA99 




C 


CARD+4 


•NEXT+4 


• 


•NEXT B CARD 

3490 24 
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RBOJ 




BE 


NXDTA 






03502 46 


03550 


01200 


RBOl 




C 


CARD+4 


•ZEROl-6 


• 


•CHECK FOR DATA CARD 


RB02 




BE 








3514 24 


07377 


07658 




DTA 






03526 46 


03574 


Q12Q0 


RB03 




B 


COMPLT 






03538 49 


05410 


ooooo 


RB04 


NXDTA 


TF 


BNAME 


•CARD+22 


• 


•PICK UP B NAME 
















3550 26 


07611 


07395 


RB05 




B 


AAA 






3562 49 


03874 


ooooo 


RB06 


DTA 


TFM 


K 


• 1 


• 9 


•ROW CTR 


















3574 16 


07614 


00-01 


RB07 




TFM 


NAME 


•FILE-2 


• 7 


•ROW SEARCH 


















3586 16 


07619 


-8067 


RBOB 


DT 


C 


-NUMRW 


»K 




03598 24 


0736N 


07614 


RB09 




BNI 


ERR8 


• 1300 


t 


•ROW NOT IN FILE 


















3610 47 


05182 


01300 


RBlo 




C 


CARD+34 


•-NAME 




03622 24 


07407 


0761R 


RB11 




BE 


ROWIN 






03634 46 


03682 


01200 


RB12 




AM 


K 


• 1 


»10 


03646 11 


07614 


000-1 


RB13 




AM 


NAME 


• 14 


• 10 


03658 11 


07619 


000J4 


RB14 




B 


DT 






03670 49 


03598 


ooooo 


RB15 


ROWIN 


TFM 


H 


• 


• 9 


»« B CTR 


















3682 16 


07622 


00-00 


RB16 




TF 


SAVE1 


» SAVE3 


> 


•RESET B SEARCH ADDR 
















3694 26 


07573 


07583 


RB17 




BTM 


CKSTOP 


•10001 


• 7 


03706 17 


02408 


J0001 


RB18 


NXTB 


TF 


NENT 


•-SAVE1 


» 


»« ENTRIES IN B 


















3718 26 


07625 


0757L 


R619 




AM 


SAVE1 


• 12 


• 10 


•GET B NAME FRAM 


B GRP 
















3730 11 


07573 


000J2 


RB2u 




C 


BNAME 


•-SAVE1 




03742 24 


07611 


0757L 


RB21 




BE 


MATCH 






03754 46 


04186 


01200 


RB22 




AM 


H 


• 1 


• 10 


•UPDATE B CTR 


















3766 11 


07622 


000-1 


RB23 




C 


NMBEE 


• H 




•LAST B CHECK 


















3778 24 


07586 


07622 


RB24 




BE 


OUT 


» 


» 


•GEXT NEXT B GRP 


















3790 46 


03850 


01200 


RB25 




MM 


NENT 


.30 


• 10 


•GOT TO NEXT B IN GRP B 














3802 13 


07625 


OOOLO 


RB26 




A 


SAVE1 


•00099 




03814 21 


07573 


00099 


RB27 




AM 


SAVE! 


• 3 


• 10 


•SET TO NUMB ENT 


POS 
















3826 11 


07573 


000-3 


RB28 




B 


NXTB 






03838 49 


03718 


ooooo 


RB29 


OUT 


BD 


RB39tWRITE» » BRANCH IF RECORD 


REVISED 03850 43 


03970 


07548 


RB3o 




B 


RB40»»«NO, DO 


NOT WRITE RECORD 


03862 49 


03994 


ooooo 


RB31 


AAA 


TF 


TLAST tSTORR+5 » 


•RESET LAST ADDR FOR NEXT 03874 26 


07563 


08011 


RB32 




B 


RDCD»»» 


RHS REVISION 




03886 49 


03418 


OOOOC 


RB33 


RB33 


C 


TLAST »-ADFSB * ♦ 


RE-SEARCH FROM 


1ST 


RECORD 03898 24 


07563 


0734- 


RB34 




TF 


STORR+5»-ADFSB 


»• IF SEARCH COMPLETE- 03910 26 


08011 


0734- 


RB35 




BE 


NTINBt». ERROR 


EXIT — NOT FOUND 


IN FILE. 03922 46 


05290 


0120C 


RB36 




B 


GETNXT 






*3934 49 


03226 


OOOOC 


RB37 


* 




REWRITE B GROUP 










RB38 


YYY 


SEEK 


STODSK 






03946 10 


00565 


-396S 














3958 49 


005 54 


-802] 


RB39 


RB39 


PUT 


STODSK 






03970 10 


00565 


-399: 














3982 49 


00532 


-802] 


RB40 


RB4Q 


C 


TLAST »SAVE2 • » 


SET TO SEARCH 


NEXT 


RECORD 03994 24 


07563 


0757* 


RB41 




TDM 


WRITE 


• 


• 


•CLEAR WRITE IND 


















4006 15 


07548 


OOOOC 


RB42 




TF 


ST0RR+5tSAVE2 






04018 26 


08011 


0757( 
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RB43 




BE 


NTINBt t .ERROR 


EXIT IF SEARCH FAILS 


04030 


46 


05290 01200 


RB44 




B 


RB51 




#4042 


49 


04126 00000 


RB45 


RRR 


c 


CARD+4 t FIRST+4»»CHECK FOR 


04054 


24 


07377 07593 


RR4& 






XXX 1 1 » 


FIRSTB OR 


04066 


46 


04162 01200 


&HA.7 




r 
v. 


CARD+4»NEXT+4 


t» NEXT.B CARD 


04078 


24 


07^77 07«iQQ 


DR/.A 
f\OHO 




RF 


XXX • • • 


IF E I THER t CONTINUE 


04090 


46 


04 1 f%7 cs \ ?nrt 






□ 
O 


COMPLT».» 


IF NEITHER»REVFST 


COMPLT 04102 


49 


A C A 1 A AAAAA 

U3410 UOUOO 






TC • 
1 r 


STORR+5 


•SAVE2 » 


•UPDATE FOR NEXT 


dGRP READ 












4X14 


26 


08011 07578 


RB51 


RB51 


TFM 


GET9+P»R0WIN 




04126 


16 


03412 -3682 


RB52 




BTM 


CKSTOP 


•20004 »7 


04138 


17 


02408 K0004 


RB53 




B 


GETNXT 


• » 


•READ NEXT B GRP 


RECORD 












4150 


49 


03226 00000 


RB54 


XXX 


TF 


COMMON+322 »CARD+22 » »S IMULATE 


04162 


26 


07109 07395 


RB55 




B 


RA55 » » tREVFST 


ENTRY FROM REVISE 


04174 


49 


02974 00000 



RC16 STOR TF CARD+86 »ZER03 • • LOWER LIMIT IN FLT PT FORM 04906 26 07459 07652 

RC17 AM SAVE1»15»10» INDICATE PRESENCE 04918 11 07573 000J5 

RC18 TF -SAVEl f K»» BRANCH TO STORE LIMIT 04930 26 0757L 07614 

RC19 SF -SAVE1*,. SUBROUTINE 04942 32 0757L 00000 

RC20 B ST0RE»». WITH LOW LIM CARD FIELD CLEARED. 04954 49 04510 00000 



RC48 


TF TLAST »-ADLSB 


05302 


26 


07563 


0734N 


RC49 


TFM EROR+M »ER4 »7 


05314 


16 


05097 


-7676 


RC50 


TFM ERORB+P »RRR 


05326 


16 


05128 


-4054 


RC51 


TFM GET9+P »RDCD 


05338 


16 


03412 


-3418 


RC52 * 


RESET FILE SCAN ADDRESSES 










RC53 


TF STORR+5 »-ADFSB 


05350 


26 


08011 


0734- 


RC54 RC54 


RACD CARD »» •BYPASS DATA AND COMMENTS 


05362 


37 


07373 


00500 


RC55 


CM CARD »14»10» 


05374 


14 


07373 


000J4 


RC56 


BI ERORA»1100»»WRITE ERROR MESSAGE 


05386 


46 


05062 


01100 


RC57 


B RC54 


5398 


49 


05362 


ooooo 



3-CO-04X 

•sion 1, Mod. Level 2 



6 of 11 



* M0D 1 CHANGES TO INV002 

A93 TfM TPM UA95+b,BND+10»ilNIT MANT MOVE OF RHS ENT1 03406 16 03436 -6298 

A94 S 0A93+6.MANSA 03418 22 03436 14107 

A93 0A95 TF BND+10-MANSA ,-AUPNO t tMOVE MANTISSA RHS El 03430 26 0780R 0652M 

A*6 MF BNDt-OA95-6»t SIGN 03442 71 06288 03430 

A97 TF BNDEX»-AUPEX»» EXPONENT 03454 26 06290 0652R 

A98 TFM QB00+6.WK18-H0»»INIT MANT MOVE OF ENTRY2 03466 16 03496 -6364 

A99 S 0B00+6tMANSA» » 03478 22 03496 14107 

BOO OBuO TF WK18+10-MANSA»-ALONO» .MOVE MANTISSA 03490 26 0774L 0653R 

B01 MF WK18»-0B00-6t» SIGN 03502 71 06354 0349O 

B02 TF W<I8EXt-AL0EX»» EXPONENT 03514 26 06356 0654M 



* 

1B36 
1B37 
1338 
1B39 
1B40 
1B41 
1B42 
1B43 
1B44 
1B45 
1B46 
1B47 
1B48 
1B49 
1B50 
1B51 
1652 
1B53 
1654 
1B55 
1B56 



XK03 
XK05 



7G48 



INV003 
IT TO MANTISSA 



MOD 1 CHANGES TO 
♦iNi F 1 ALIZE 10 DIG 
AROUND TFM 109MM+6»109 

S 109MM+6tMANSA 
•CONVERT UPPER BOUND TO MANTISSA LENGTH 
TFM MSIZE+6»HLDUBX 
BT lOTOMtALFEX 
♦CONVERT LOWER BOUND TO MANTISSA LENGTH 



CONVERSION SUBR 



TFM 

BT 

B 

♦ 1U DIGIT TO 
10T0M TF 
SM 

109MM LD 
SM 

M5IZE TF 
TFM 
BB 

♦BOTH BOUNDS 



FROMFACTOR ADDRESS 
SUBR. FR0MFAC*10T0M- 



MSIZE+6»HLDLBX 
lOTOMtAVAEX 
IB35»ttQ ADDR-10TOM 
MANTISSA CONVERSION 
-MSIZE-6»-10TOM+l»iMOVE EXPONENT 
10T0M-1 »2» t MANTISSA ADDR OF FROMFAC 
109-MANSA t -10TOM+l,»CONVERT MANSA SIZE 

MSIZE+6 »2 t »MANT ISSA ADDR OF TOFAC 
-W5TZE-6.99t.M0VE CONVERTED MANTISSA 
104»0»2»RESTORE MULTIPLY TABLE 
• > »SU6R0UT I NE EXIT 
ARE NOW IN MANTISSA LENGTH 



♦SUBTRACT LOWER FROM UPPER 
1B56 FS HLDUBX»HLDLBX 



MOD 



2 CHANGES TO COST.R 

f FM BNMPAR » 14000 
TFM PIPAR # 15600 



BTM MNM 



LP 16 2 



03574 


16 


03688 


-0109 


03586 


22 


03688 


14107 


03598 


16 


03712 


-6613 


03610 


27 


03658 


06510 


03622 


16 


03712 


-6633 


03634 


27 


03658 


06540 


03646 


49 


03742 


00000 


1 » TOFAC" 


'MSIZE+6 




03658 


26 


0371K 


0365P 


03670 


12 


03657 


-0002 


03682 


28 


1399Q 


0365P 


03694 


12 


03712 


-0002 


03706 


26 


0371K 


00099 


03718 


16 


-0104 


00000 


03730 


42 


00000 


00000 



NMON.OtlOtPUT MANSA TO MONITOR 



03742 10 02375 -3761 

3754 49 0235N 00000 

3761 00005 -6613 

3766 00005 -6633 

3771 00001 • 



10138 16 07195 J4000 
10162 16 07069 J5600 



08756 17 07724 00000 



There are no source changes in this modification for REVCOL or REVBAS. 
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PA54 


RDERTNTFM 


6ET9+P tRDCDt • ERROR RETURN INITIALIZATION 




PA72 


GETNXTC 


STORR+5 t-ADLGR »» CHECK. END OF MATRIX FILE 




PA7Z5 


BE 


CKLI5T 1 1 tCHECK. IF LAST IS FIRST GROUP 




PA73 


GTNEXTGET 


STODSK 




PA88 


RDCD 


RACD CARD 




PA835 


TFM 


GET9+PtROWOK» »BTPAS5 WACD TIL COL FOUND 




PB12 




BF 


AAA 




PR 1 5 




BF 


CCC 




PR77 




BT 


" 9^999 • t »NO REWRITE AGRP 


PR?"? 


AAA 

P\ 


TF 


Tl AST .STORR+5 • *RFSFT LAST TO CURRFNT 




r D £ *t 




TFM 


GFT9+P «RDCD» • RESTORE WACD FOR NEXT CARn 








B 


cm.oic 




PB29 




B7 


DDD 




PB33 




WOP 






r D V J 




TF 

• r 


STORR+5 »SAVE2 » tSET READ FOR NEXT GROUP 




PB36 




NOP 






PB37 




B 


GETNXT 




PBL7 

I W *T Mm 


"UDD" 


_ r ... 


TUA5T» SAVE2V t CHECK IF LAST GROUP HAS BEEN 


SEARCHED 


PB43 




TF 


STORR+5 »SAVE2t»SET TO READ NEXT RECORD 




PB&4 




BE 


NTINMT tt t INCORRECT COL NAME 








~TFW 


ERURBR-F»RDERTN™ " " 




PC76 




B 


ERORA 




PC77 


CKL1STC 


TLAST t-ADFGR» • IS LAST SEARCH RECORD FIRST 


IN FILE 


PC78 




TF 


STORRVB »-ADFGR t • SEARCH IS COMPLETE 




PC79 




BE 


NTINMT tt. COLUMN NAME NOT IN FILE. 




PC8U 




B 


GTNEXT+12»t»IF SEARCH NOT COMPLETEtCONT INUE 


RA55 


RA55 


TF 


CARDTM»C0MTAB+15 




RA78 


GETNXTC 


STORR+5t-ADLSB»»CHECK END OF RHS FILE 




RA785 


BE 


RB33 




RB05 




B 


AAA 




RB29 


OUT 


BD 


RB39»WRITE» .BRANCH IF RECORD REVISED 




1620- 


CO-04X 


Q A# 11 
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RB30 B RB40...N0. DO NOT WRITE RECORD 

RB31 AAA TF TLAST » ST OR R+ 5 * » RE SET LAST ADDR FOR NEXT 

RB32 B RDCDtt. RHS REVISION 

RB33 RB33 C TLAST t-ADFSb » • RE-SEARCH FROM 1ST RECORD 

RB34 TF STORR+5.-ADFSB.. IF SEARCH COMPLETE- 

R635 BE NT INB » » tERROR EXIT — NOT FOUND IN FILE. 

RB36 B GETNXT 

RB39 RB39 PUT STODSK 

RB40 RB40 C TLAST tSAVE2 » » SET TO SEARCH NEXT RECORD 

RB42 TF STORR+5. SAVE2 

RB43 BE NTINB. . tERROR EXIT IF SEARCH FAILS 

RB44 B RB51 

RB45 RRR C CARD+4 . F I RST+4 » .CHECK FOR 

RB46 BE XXX. •» FIRSTB OR 

RB47 C CARD+4.NEXT+4. » NEXT.B CARD 

RB48 BE XXX... IF E I THER » CONT I NUE 

RB49 B COMPLT . . » IF NE I THER .REVFST COMPLT 

RB51 RB51 TFM GET9+P .ROWIN 

RB54 XXX TF COMMON+322 .CARD+22 • .SIMULATE 

RB55 B RA55 . . . REVFST ENTRY FROM REVISE 

RC16 STOR TF CARD+86 .2ER03 . .LOWER LIMIT IN FLT PT FORM 

RC17 AM SAVE1.15.10. INDICATE PRESENCE 

RC18 TF -SAVE1.K.. BRANCH TO STORE LIMIT 

RC19 SF -SAVE1... SUBROUTINE 

RC20 B STORE... WITH LOW LIM CARD FIELD CLEARED. 

RC48 TF TLAST .-ADLSB 

RC50 TFM ERORB+P »RRR 

RC51 TFM GET9+P .RDCD 

RC53 TF STORR+5.-ADFSB 

RC54 RC54 RACD CARD ...BYPASS DATA AND COMMENTS 

RC55 CM CARD .14.10. 

1620-CO-04X 9 of 11 
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RC54 



0A95+6»MANSA 

A95 0A95 TF BND+10-MANSA ,-AUPNO » tMOVE MANTISSA RHS El 
lD»~0A95-6» > SIGN 
iDEX »-AUPEX > t EXPONENT 



RC56 




BI 


RC57 




B 


A93 


TFM 


TFM 


A94 




S 


A95 


OA95 


TF 


A 96 




MF 


A97 




TF 


A98 




TFM 


A99 




S 


BOO 


OBOu 


TF 


B01 




MF 


B02 




TF 


1B36 


*INITIALi; 


1B37 


AROUNDTFM 


1B38 




S 


1B39 


*CONVERT I 


1B40 




TFM 


1B41 




BT 


1B42 


^CONVERT 1 


1B43 




TFM 


1B44 




BT 


1B45 




B 


1B46 


♦10 DIGIT 


1B47 


10 TOM 


TF 


1B48 




SM 


1B49 


109MM 


LD 


lB5w 




SM 


1B51 


MSIZE 


TF 


1B52 




TFM 


1B53 




BB 


1B56 


1B56 


FS 



0B00+6»MANSAt 



SIGN 

EXPONENT 



109MM+6»MANSA 



lB56.ttQ ADDR«10TOM FROMFACTOR ADDRESS 



MSl2E+6»2» .MANTISSA ADDR OF TOFAC 
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XK03 TFM BNMPAR t 14000 

XK05 TFM PIPAR » 15600 

7G48 BTM MNMON »0 » 10 »PUT MANSA TO MONITOR 



80 column list of five patch cards - MOD 2 deck 

0*257KL9000000000000000000000*000 -4129 J0nZ0430lK080431106oZ04310K02N9O 02 

04885**900000000000000000000004747 JQnKK605415902534l0000000497306nK06049870S 03 

04946K026nlC080502506alC080 5Q6306nK080512106nl<J4N945654241620ZIU2N55600654159S 03 

J0138KM81607 195 J4000 1608838 J76001607069 J5600491027400000Z J0182KJ04510238026X JO 

08725K077200000260282302883260283302871 1707724000003302872000001502755000017 09 
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1620-CO-04X Version 1, Mod Level 2 Object list of SHIFT 

-2402 K07 100056 5 0242 54900 5660 36662403 68303 843470 24740 120024036 9 103 8 5 1470264600001 
-2469K07- 12^0340000000 102 3 902 52 300 10 0480000 00 000049 2402 0000M9 5 56541 5 3494400002 
-2 5 36 KK4v062 4849466 30-04341 5 9440ZKM0N 54566 005 3 57 7 176 7 2700044495400 5 9415 547 4500003 
-2 6 0KM6- 06 6 49 5 3 5 300 42 4 50007 6 7 6767 00 635 60 0O7 676 7 6 70 30ZKJ8 340000000 102 72 36900004 
-2664K07 103 8 55730 262 5 038 551 10385500042 730 26410385 5 12 03855002 12 340000000102 300005 
-27 3 1K074000000^ 102 3902 56 100 100240 37 070436547028 140 1200340000000 1022604303000006 
-2 798 K074 307 39 04 3 090 J 100480 000000000 3703 865 00 500450 28 980 3 865 1000565 02 87 349000007 
-2865 K07u5 32040242604 19 10402 34902 8 26000002403871042 814702970012 0072 03903 04100008 
-2932 KO 795210419503855730 39 030419 5 4902850 00 00 02 403871 0427 34703042012007203800009 
-2999 KO7950419521 04 1950385^73038 9 5 04 19549 02 85 00 00 00 2403871 04 2 89 46 028500120000 010 
-3 066 K07 140 3 86 5 00 000460 2 8 50 12-00 1403 86 5000P 3460 28 500 120026042 11 03 8 79 3204 17 00001 1 
-3133K07 000026038 79 04181160 42 160 3 86 81604 22 10 38 8 2 2 5 042 2 2 042 2 J 1 5 042 3 70000 1 5 COO 1 2 
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Assembly listing of SHIFT 



90010*READ DIM SHIFT DISPLACEMENT CARD 



90020 


A GET 


SHIFT 


02402 


10 


00565 


-2425 








2414 


49 


00566 


-3666 


90030*TEST FOR VALID ENTRY- CC01=SHIFT »CC06 a NNNN 










90040 


C 


S01.SHIFTT 


02426 


24 


03683 


03843 


90050 


BNE 


BB 


02438 


47 


02474 


01200 


90060 


' C 


S06»4BLANK 


02450 


24 


03691 


03851 


90070 


BNE 


B 


02462 


47 


02646 


01200 


90080 


BB RCTY 




02474 


34 


00000 


00102 


90090 


WATY 


ER1 


02486 


39 


02523 


00100 


90100 


H 




02498 


48 


00000 


00000 


90110 


B 


A 


02510 


49 


02402 


00000 


90120 


ER1 DAC 


19tINVALID SHIFT CARD • 


02523 


00038 




90130*SHIFT CARD 


APPEARS VALID. 










90 140 


ER3 DAC 


29tN£W LP1620 DIM RANGE WILL bE ♦ 


02561 


00058 




90150 


LOW DSAC 


4 tXXXX» 


02625 


00008 




90160 


DAC 


4 » TO » 


02627 


00008 




90170 


HIGH DSAC 


4 »XXXX» 


02641 


00008 




90180 


DAC 


2 » . • 


02643 


00004 




90210 


B RCTY 




02646 


34 


00000 


00102 


90220 


TNS 


S06»SHIF 


02658 


72 


03691 


03855 


90240 


TNF 


LOW t SHI F 


02670 


73 


02625 


03855 


90250 


AM 


SHIF»42 »8 


02682 


11 


03855 


0-042 


90260 


■ TNF 


HIGHtSHlF 


02694 


73 


02641 


03855 


90270 


SM 


SHIF»212»8 


02706 


12 


03855 


0-212 


91010 


RCTY 




02718 


34 


00000 


00102 


91020 


RCTY 




02730 


34 


00000 


00102 


91030 


WATY 


ER3 


02742 


39 


02561 


00100 


91040 


C 


S10tMONIT2 


02754 


24 


03707 


04365 


91045 


BNE 


MONIT1 


02766 


47 


02814 


01200 


91050 


RCTY 




02778 


34 


00000 


00102 


91053 


TF 


M0N1X2»M0N2 


02790 


26 


04303 


04307 


91056 


WATY 


ER4 


02802 


39 


04309 


00100 


91060 


MONIT1 H 




02814 


48 


00000 


00000 


91070*AFTER NEW DIM RANGE MESSAGE-HALT » 










91080*IF NEW RANGE IS ACCEPTABLE » PRESS START TO CONTINUE 










91090* 












91100* 














91110*MAINLINE ROUTINE 










91120* 














91130*READ OBJECT 


DECK CARD 










91140 


READ RACD 


CC+2*1 


02826 


37 


03865 


00500 


91150*TEST CARD TYPE 










91160 


BNR 


DUP»CC+2*1 


02838 


45 


02898 


03865 


91170*JOBtDUP OR 


*DL0AD CARD 










91180 


JOB PUT 


OCARD 


02850 


10 


00565 


-2873 








2862 


49 


00532 


-4024 


91190*MOVE NEW CARD TO OLD IMAGE AREA 










91200 


TF 


OCC+2*80»CC+2*80 


02874 


26 


04191 


04023 


91210 


B 


READ 


02886 


49 


02826 


00000 


93010*TEST FOR DLOAD CARD 










930.2 


DUP C 


CC+4*2»DLOAD 


02898 


24 


03871 


04281 


93030 


BNE 


DUP2 


02910 


47 


02970 


01200 


93040*DLOAD CARD » , 


SHIFT DIM NUMBER 










93050 


TNS 


CC+2*20»DIM 


02922 


72 


03903 


04195 


93060 


A 


DIM.SHIF 


02934 


21 


04195 


03855 


93070 


TNF 


CC+2*20»DIM 


02946 


73 


03903 


04195 


93080 


B 


JOB 


02958 


49 


02850 


00000 


93081 


DUP2 C 


CC+4*2»DELET 


02970 


24 


03871 


04273 
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3082 


BNE DUP3 


02982 


47 


03042 


01200 


3083 


TNS CC+2*16»DIM 


02994 


72 


03895 


04195 


3084 


A D I M ♦ SH 1 F 


03006 


21 


04195 


03855 


3085 


TNF CC+2*16»DIM 


03018 


73 


03895 


04195 


3086 


6 JOB 


03030 


49 


02850 


00000 


3087 DUP3 


C CC+4*2»DLABL 


03042 


2 4 


03871 


04289 


3088 


BE JOB 


30 54 


46 


02850 


01200 


3090*TEST 


FOR BLANK AMD COLD START CARD 










3100 NORMAL CM CC+2*1»0.10 


03066 


14 


03865 


000-0 


3110 


BE JOB 


03078 


46 


02850 


01200 


3120 


CM CC+2*1. 73.10 


03090 


14 


03865 


000P3 


3130 


BE JOB 


03102 


46 


02850 


01200 


3140*OBJECT CARD. BEGIN SEARCH FOR CALL LINK 










315Q*INITIALIZE 










3160 


TF SAVE 18 t CC+2*8 


03114 


26 


04211 


03879 


3170 


SF OCC+2*70-1 


03126 


32 


04170 


00000 


3180 


TF CC+2*8»OCC+2*75 


03138 


26 


03879 


04181 


3190 


TFM CCI.CC+2*3-l 


03150 


16 


04216 


-3868 


32J0 


TFM CCJ»CC+2*1G-1 ' 


03162 


16 


04221 


-3882 


4010*LOOP 


TO TEST CALL LINK DIM NUMBER IN OBJECT CARD 










4020* 












4030*SAVE 


ZONE COLUMN J 










4040 LOOP 


TD SAVED.-CCJ 


03174 


25 


04222 


0422J 


4050*CLEAR 


RECORD MARK FOR INTERNAL RECORD MARK TEST 










4060 


TDM FIELD+1.0.. 


03186 


15 


04237 


00000 


407 0*L I M I T 


TEST TRANSMISSION TO 7 COLUMNS 










4080 


TDM -CCJ. 


03198 


15 


0422 J 


00000 


4090 


DC 1 t » t* 


03209 


00001 




4U0*MOVE 


7 COLUMNS TO TEST AREA 










4110 


TR FIELD-13. -CCI 


03210 


31 


04223 


04210 


4120*TEST 


FOR INTERNAL RECORD MARK. NO DIM NUMBER IF PRESENT. 








4130 


BNR RESTR, FIELD+1 


03222 


45 


03426 


04237 


4140*TEST 


FIELD IS DIM NUMBER. 










4150 


SF FIELD-13 


03234 


32 


04223 


00000 


4160 


S FIELD, LKZRO 


03246 


22 


04236 


04251 


4170 


C FIELD-5,9ZRO 


03258 


24 


04231 


04260 


4180 


BNZ RESTR 


03270 


47 


03426 


01200 


4190 


6D RESTR, FIELD-3 


03282 


43 


03426 


04233 


4200 


BD RESTR, FIELD-1 


03294 


43 


03426 


04235 


5010*YES.THIS FIELD TO BE SHIFTED. 










5020* 












5030*RESTORE ZONES 










3040 


A FIELD, LKZRO 


03306 


21 


04236 


04251 


5050*STRIP 


DIM NUMBER 










5 06 


TNS FIELD, NDIM 


03318 


72 


04236 


04264 


3070*MODIFY DIM NUMBER 










5075 


CF NDIM 


03330 


3 3 


04264 


00000 


3080 


A ND I M ,SH I F 


03342 


21 


04264 


03855 


5090*FILL 


SHIFTED DIM NO 










3100 


TNF FIELD, NDIM 


03354 


73 


04236 


04264 


3110*MOVE 


SHIFTED DIM TO READ AREA 










3120 


TDM FIELD-7.5 


03366 


15 


04229 


00005 


3125 


CF FIELD-13 


03378 


33 


04223 


00000 


3130 


TR -CCI .FIELD-13 


03390 


31 


04210 


04223 


3140*INDICATE SHIFTED DIM NO BY S IN COL 77 










3150 


TDM CC+2*77-l»6 


03402 


15 


04016 


00006 


3160 


TDM CC+2*77»2 


03414 


15 


04017 


00002 


3010*RESTORE SAVED DIGIT t INDEX I AND J 










3020 RESTR 


TD -CC J .SAVED 


03426 


25 


0422J 


04222 


3030 


AM CCJ.2 


03438 


11 


04221 


-0002 
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AM 


CCI »2 




EQUAL 


CC09 




CM 


CC I »CC+2*9-l 




BNE 


LASTC 




OLD CARD IMAGE 




SF 


CC+3*2-l 


70U03 


TF 


0CC+2*75»CC+2»8 


96086 


SF 


OCC+2*76-l 


96087 


C 


OCC+2*80t6B015 


A £ A O Q 

9 6 088 


BNE 


PUNCH 


96089 


TF 


OCC+2*18 .MON1X2 


96090 PUNCH 


PUT 


OCARD 


96100 


B 


LOOP 



96110*IS CCJ EQUAL CC76 
96120 LASTC CM CCJ »CC + 2*77-l 
96130 BNE LOOP 

96140#LAST CARD COLUMN PROCESSED. 

96150*MOVE SAVED COLUMNS'. 01 TO 08 BACK TO CC01-08 
96160 TF CC+2*8»SAVE18 

96170»M0VE NEW CARD TO OLD CARD 



96180 




TF 


OCC+2*80 »CC + 2*80 


96185 




TDM 


0CC+2*78-l »5 


96 190 




B 


READ 


97010 


SHI FT 


DCA 


,s 


97020 


S 


DAS 


80 


97030 


SOI 


DSAC 


5»SHIFT »S + 8 


97040 


S06 


DSAC 


4»NNNN»S+16 


97045 


S10 


DSAC 


8 »MONI TORX »S + 32 


97050 


SHIFTT 


DSAC 


5»SHIFT 


97060 


4BLANK 


DSAC 


4 • » 


9707 


^HIF 


DC 


4*0 


97080 


CARD 


DCA 


, CARD I M 


97090 


CC01 


DAC 


40. 


97100 




DAC 


40* 


97110 


CARDIM 


DAC 


41 t 


97120 


CC 


DS 


»CC01-2 


97130 


OCARD 


DCA 


•OCC01 


97140 


OCC01 


DAC 


40 • 


97150 




DAC 


40 » 


97160 


OCC 


DS 


•OCC01-2 


97170 


DIM 


DC 


4»0 


97180 


SAVE18 


DS 


16 


97190 


CCI 


DS 


5 


97200 


CCJ 


DS 


5 


97210 


SAVED 


DS 


1 


97220 


FIELD 


DS. 


14 


97230 




DS 


1 


97240 


LKZRO 


DC 


14*53527050707070 


97250 


9ZRO 


DC 


9»0 


97260 


NDIM 


DC 


4*0 


97270 


DELET 


DSAC 


4t*DEL 



03450 


11 


04216 


-0002 


U J *+ O c. 


1 Ll 


U *r C I O 


— ^ ft ft n 


CS^lxl Ll 


Ll 7 


U V 3 7 *t 




\J J *T O O 


J C. 


n "3 a a ft 
U -5 


UUUUU 


U JH70 


c. O 


n Ll 1 ft 1 


n X ft 7 Q 


a t; 1 a 


"X 9 
D C 


a a 1 q 


uuuuu 


a "3 1, 
U J c. c. 


O A 


A A 1 Q1 


A Ll 5 Q q 


03534 


47 


03558 


01200 


03546 


26 


04067 


04303 


U 5 D 50 


1 U 


r\ r\ c. L\ ^ 

005 65 




3570 


49 


00532 


-4024 


U 5 c. 




A Q 1 "7 /. 


A A A A A 


03594 


14 


04221 


-4016 


03606 


47 


03174 


01200 


a 1 c i q 
36 1 


26 


3 8 7 9 


0421 1 


03630 


26 


04191 


04023 


03642 


15 


04186 


00005 


03654 


49 


02826 


00000 



03666 00005 -3675 

3671 00003 JOG 
03675 00160 
03683 00010 
03691 00008 
03707 00016 
03843 00010 
03851 00008 

03855 00004 

03856 00005 -3865 
3861 00003 JOG 

» 

3865 00080 

3945 00080 

tCCOl* 
3865 00082 
03863 00000 
04024 00005 -4033 
4029 00003 JOG 
» 

4033 00080 
♦ 

4113 00080 
04031 00000 
04195 00004 
04211 00016 
04216 00005 

04221 00005 . 

04222 00001 

04236 00014 

04237 00001 
04251 00014 
04260 00009 
04264 00004 
04273 00008 
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97280 DLOAD DSAC 4»*DL0 

97290 DLABL DSAC 4»*DLA 

97300 6BU15 DSAC 5»6 015» 

97310 M0N1X2 DSAC 2t79 

97320 M0N2 DSAC 2>77 

97330 ER4 DAC 2 1 » ENV I RONMENT-MON I TOR 2 • 

97340 M0NIT2 DSAC 8»MONITOR2 

98010 DEND A 



0428 1 
04289 
0429V 
04303 
04307 
04309 
04365 
02402 



00008 
00008 
00010 
00004 
00004 
00042 
00016 
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40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



International Business Machines Corporation 

January h, 1965 

MEMORANDUM TO : Users of Linear Programming System 

1620-CO-04X 

SUBJECT : Version 1, Modification Level 3 

This modification has been prepared to correct an error in the 
program NEWRHS. The program formerly would not properly 
correct the logical bound under the following conditions : 

A change in RHS 

Row R range in new RHS not equal 
Row R range in old RHS 
and 

Row R Generated logical variable is in basis row T, where T is not 
equal to R. 

This modification consists of the following: 

1. Description of error, machine list of correct object card and corrected 
source card, list of control cards to be used in updating the system pack, 
and instructions for making the update run - one page 

2. Corrected object patch card - one card 

Any discrepancy between the material received and the list above, as well as 
any errors in card reproduction, should be directed to: Manager of DP 
Program Information, IBM Corporation, 40 Saw Mill River Road, Hawthorne, 
New York 10532. 

We appreciate your cooperation in making the enclosed changes and request 
the continued use of the Authorized Programming Analysis Report (APAR), 
submitted through your local IBM Systems Engineer, in reporting difficulties 
concerning this program. APAR's for* this programming system should be 
sent to: APAR Processing, DP Application Programming Standards, 112 East 
Post Road, White Plains, New York 10601. 



PROGRAM INFORMATION DEPARTMENT 

tm 

cc: SE Managers 

(No enclosures with Br /Office 
copies) 
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DESCRIPTION OF ERROR 



P'*G ;.<Av, NEWRHS 



riRROR 


FAILURE TO OBTAIN CORRECT LOGICAL 


BOUND 




L K. U R A : \| C L 


A CHANGl IN RHS 




row r rang t in new rhs 




NOT EQUAL 






ROW R RANGE IN OLD RHS> AND 






ROW R GENERATED LOGICAL VARIABLE 


IS IN dASIS ROW T, 




WHERE T NOT EQUAL R. 








Correction 


SYMBOLIC 



SEQUENCE NUMBER I47> IN CC 2-4 (" 

TV7 TF B1NWI » BETFIL »» INIT SEARCH NAME ADDRESS ^ 



REPLACES SAME NUMBER E D CAR D 



OBJECT 

ObJcCT DlCK IDENTIFICATION CHARACTER 3» IN CC 76 



SEQUENCE NUMBER J17» IN CC 78-60 
CHANGL CC 22 TO NUMERIC ZERO 



THE ALTERED CARD IS LISTED dELOW 



-9 9- 1K0 7&9 3^60993404906 11099 340C01 12 40993M0976Q46 100520 12002 10993405004 12 105 J 17 



Dl SK 



DELETl NEWRHS 



ZZ JO 'J 
ZZDJ- 



* J E L ; _ T M r „v R H S 



LOAD ALTERED OoJcCT DELK 



ZZ J Da 



ZZDJP 

-'OLOADNLv.RMs DlTaILS OMITTcD* 



oSE PI D DISTRIBUTED DLOAD NEWRHS IF PId DISTRIBUTED DECK WAS LOADED • 

J5F SnlFT ^ -N.-R>xTrD DLO.MD N E W R H S » IF Sii I F T WAS USEd TO OdTAIn A LOADING DECK ^ 
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